home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir25 / qbook100.zip / QBOOKINS.CMD < prev    next >
OS/2 REXX Batch file  |  1994-07-31  |  974b  |  38 lines
  1. /* Create a QBook program object on the OS/2 Desktop */
  2.  
  3.  Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4.  Call SysLoadFuncs
  5.  
  6.  Call SysCls
  7.  say
  8.  say
  9.  
  10.  qb_exe =  Stream('QBOOK.EXE', 'C', 'Query Exists')
  11.  qb_ico =  Stream('QBICON.OS2', 'C', 'Query Exists')
  12.  
  13.  If qb_ico = '' Then 
  14.    qb_ico =  Stream('QBOOK.ICO', 'C', 'Query Exists')
  15.  Else  
  16.    rename = '1'
  17.  
  18.  if qb_exe = '' | qb_ico = '' 
  19.  Then Do
  20.    Say 'The files QBOOK.EXE and QBICON.OS2 must exist in the current'
  21.    Say 'directory in order for the program object to be created.'
  22.    Exit
  23.  End
  24.  
  25.  setup = 'EXENAME='qb_exe';PROGTYPE=WINDOWEDVDM;STARTUPDIR='Directory()
  26.  
  27.  If rename = '1' then  
  28.    "RENAME QBICON.OS2 QBOOK.ICO"
  29.     
  30.   Call SysCreateObject 'WPProgram', 'QBook Recipe Manager', '<WP_DESKTOP>',,
  31.        setup, 'Replace'
  32.   
  33.  Say 'The QBook program reference has been created on your WPS desktop.'
  34.  Say 'You may now move it to the folder of your choice.'
  35.  
  36.  Exit 
  37.  
  38.